home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 3-Demos / HyperCard Demos / HyperMovies / CL⁄1 / CL_1 / card_5792.txt < prev    next >
Text File  |  1989-10-27  |  5KB  |  215 lines
  1. -- card: 5792 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 3493
  5. -- name: All Regions
  6. ----- HyperTalk script -----
  7. -- Script of card "All Regions"
  8.  
  9. on GetDataForCard cardName
  10.   --{ Hide the following for display:
  11.   global connectMode
  12.   if connectMode = "Simulation" then
  13.     S_GetDataForCard cardName
  14.     exit GetDataForCard
  15.   end if
  16.   --}
  17.   --put "select manager,quota_ytd,sales_ytd,office_nr,city,region" &&
  18.   --"from offices order by office_nr desc; " into query
  19.   put "select manager,quota_ytd,sales_ytd,office_nr,city,region" && "from offices order by office_nr; " into query
  20.   put "2,3,4,5,6,7" into fieldsToFill
  21.   put the short name of me into cardName
  22.   PutDataInFields query, fieldsToFill, cardName
  23. end GetDataForCard
  24.  
  25.  
  26. --{ Hide the following for display:
  27. on S_GetDataForCard cardName
  28.   --for the simulation mode:
  29.   put "offices" into tableName
  30.   put "manager,quota_ytd,sales_ytd,office_nr,city,region" into fmFields
  31.   put "2,3,4,5,6,7" into toFields
  32.   if cardName is empty
  33.   then put the short name of this card into cardName
  34.  
  35.   put "select" && fmFields && "from" && tableName && "order by office_nr descending; " into s_query
  36.  
  37.   S_PutDataInFields s_query,tableName, selectedRecords(tableName,"office_nr"),fmFields,toFields,cardName
  38. end S_GetDataForCard
  39.  
  40. function selectedRecords tableName,keyFieldName
  41. set lockScreen to true
  42. set lockMessages to true
  43. push card card
  44. go card tableName
  45. get number of lines of card field keyFieldName
  46. repeat with i = 1 to it
  47.   --select all records whose key field is not empty
  48.   if line i of card field keyFieldName <> empty then
  49.     put i & "," after recordList
  50.   end if
  51. end repeat
  52. put empty into last char of recordList
  53.  
  54. pop card
  55. set lockScreen to false
  56. set lockMessages to false
  57. return recordList
  58. end selectedRecords
  59.  
  60. --}
  61.  
  62.  
  63.  
  64. -- part 17 (button)
  65. -- low flags: 00
  66. -- high flags: 0000
  67. -- rect: left=8 top=7 right=31 bottom=31
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 1014 / 1014
  70. -- text alignment: 1
  71. -- font id: 0
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 16
  75. -- part name: Prev
  76. ----- HyperTalk script -----
  77. on mouseUp
  78.   visual wipe right
  79.   go prev
  80. end mouseUp
  81.  
  82.  
  83.  
  84. -- part 20 (field)
  85. -- low flags: 80
  86. -- high flags: 2004
  87. -- rect: left=16 top=62 right=260 bottom=493
  88. -- title width / last selected line: 0
  89. -- icon id / first selected line: 0 / 0
  90. -- text alignment: 0
  91. -- font id: 3
  92. -- text size: 12
  93. -- style flags: 0
  94. -- line height: 16
  95. -- part name: Card Script
  96. ----- HyperTalk script -----
  97. on doSelect
  98.   put the mouseV into theClick
  99.   put textHeight of me into lineHeight
  100.   put rect of me into window
  101.   put item 1 of window into left
  102.   set the lockText of me to false
  103.   click at left, theClick
  104.   click at left, theClick + lineHeight with shiftKey
  105.   if the selection is not empty then
  106.     repeat until return is in the selection
  107.       add lineHeight to theClick
  108.       click at left, theClick + lineHeight with shiftKey
  109.     end repeat
  110.   end if
  111.   --set the lockText of me to true
  112. end doSelect
  113.  
  114.  
  115.  
  116. -- part 24 (field)
  117. -- low flags: 81
  118. -- high flags: 2000
  119. -- rect: left=19 top=62 right=257 bottom=489
  120. -- title width / last selected line: 0
  121. -- icon id / first selected line: 0 / 0
  122. -- text alignment: 0
  123. -- font id: 3
  124. -- text size: 12
  125. -- style flags: 0
  126. -- line height: 16
  127. -- part name: Card Script Mask
  128. ----- HyperTalk script -----
  129. on mouseUp
  130.   send doSelect to card field "Card Script"
  131. end mouseUp
  132.  
  133.  
  134.  
  135. -- part contents for background part 1
  136. ----- text -----
  137. Data for All Regions
  138.  
  139. -- part contents for background part 6
  140. ----- text -----
  141. manager
  142.  
  143. -- part contents for background part 7
  144. ----- text -----
  145. quota
  146.  
  147. -- part contents for background part 8
  148. ----- text -----
  149. sales
  150.  
  151. -- part contents for background part 9
  152. ----- text -----
  153. percent
  154.  
  155. -- part contents for background part 16
  156. ----- text -----
  157. office_nr
  158.  
  159. -- part contents for background part 17
  160. ----- text -----
  161. city
  162.  
  163. -- part contents for background part 18
  164. ----- text -----
  165. region
  166.  
  167. -- part contents for background part 26
  168. ----- text -----
  169. status
  170.  
  171. -- part contents for card part 20
  172. ----- text -----
  173. -- Script of card "All Regions"
  174.  
  175. on GetDataForCard
  176.   put "select manager, quota_ytd, sales_ytd, office_nr, city, region from offices order by office_nr descending; " into query
  177.   put "2,3,4,5,6" into fieldsToFill
  178.   put the short name of me into cardName
  179.   PutDataInFields query, fieldsToFill, cardName
  180. end GetDataForCard
  181.  
  182.  
  183.  
  184.  
  185. -- part contents for background part 33
  186. ----- text -----
  187. select manager,quota_ytd,sales_ytd,office_nr,city,region from offices order by office_nr descending; 
  188.  
  189. -- part contents for background part 5
  190. ----- text -----
  191. 114.7,104.3,101.1,82.5,94.6,102.8
  192.  
  193. -- part contents for background part 2
  194. ----- text -----
  195. 300,200,800,
  196.  
  197. -- part contents for background part 3
  198. ----- text -----
  199. 760000.00,295000.00,638000.00,
  200.  
  201. -- part contents for background part 4
  202. ----- text -----
  203. 872446.36,307700.06,
  204.  
  205. -- part contents for background part 10
  206. ----- text -----
  207. 105,110,
  208.  
  209. -- part contents for background part 11
  210. ----- text -----
  211. NewYork,Washington,
  212.  
  213. -- part contents for background part 12
  214. ----- text -----
  215. Eastern,Eastern,